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MODULE SCANFILE ( 
rr = 'v04-001' 
= 


BEGIN 
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i FACILITY: 
DYNAMIC BAD BLOCK UTILITY 


ABSTRACT: 
This process examines files suspected of containing bad 
disk blocks. Those disk blocks verified to be bad are added 
to the bad block file. The others are returned tc the volume 
or reuse. 


ENVIRONMENT : 
VAX/VMS OPERATING SYSTEM, VERSION 1.0 


AUTHOR: THOMAS G. DOPIRAK ~ CREATION DATE:5/16/78 
MODIFIED BY: 
v04-001 HHO0S9 Hai ttuene 01-0 t-1984 
Enhance BADBLOCK.EXE to handle a larger class of 1/0 errors. 
Rework completion routines. General code cleanup. 


v0002 acG0059 Andrew C. Goldstein, 21-Aug-1979 20:45 
Fix repeated write/read test so it really repeats 
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§ $ 5 1! > 4 
; 8 : Table of contents: : ; 
3 § 3 1 FORWARD ROUTINE ; 4 
; 1 SCAN : NOVALUE, 1 main program of file processing logic s 4 
; 61 1 GROUP_BLOCKTEST, ' routine tests ‘groups ; 4 
; § i 1 “RETURN ' examines a group of blocks when error detected : 4 
; 6 y 1 CHECK“BADSTATUS, i determines whether a status indicates a bad block ; 4 
: 666 1 NORMAC_COMPLETE : NOVALUE, ' called after a eeaal rocessing of a file ; 4 
3; 65 0064 1 ERROR COMPLETE : NOVALUE, ' called after rite" con rocess 4 & - file : 4 
3 $8 = TRUNCATE, ! truncates a file containing no blocks ; 4 
; 6 1 TRUNCATE_BAD, ' truncates a file containing a bad block > 4 
3 68 1 BLOCKTEST ' tests an ingats dual bloc s § 
: 69 1 POSITION_fO_EOF, i accesses a file and dlecovers tts size 3 4 
3 0 Boe 1 ' does QJ]0W'S and checks status ; 4 
; 4 9070 REMOVE _PBB : NOVALUE; i remove PBB entries from BADLOG.SYS ; ‘ 
3 7 oh 4 1! ; 4 
3 ie Bote ! } Include files: : 2 
: 26 9075 1 LIBRARY *SYSSLIBRARY:LIB.L32'; : | 
3 78 0077 . 3 : 4 
3 79 a 1 ! MACROS: ; 4 
: 80 0079 1! ; 4 
5 a 0080 1 :; 4 
$ 4 1 "DIRECTORY 1paf 1Otf Joey. DIDJ% ! start of directory ID : 4 
; 8 m 00 é 1 RIRGCJ = (UPLIT “BYTE (ECHARCOUNT (ZSTRINGCEREMA MATNING) the : 4 
; 008 1 zs NG(ZREMAINING)) )% ; ; 4 
3 5 ae 1 ; 4 
$ 6 0085 1! ; 4 
3 7 0086 1 ! Various definitions: ; §$ 
3 88 0087 1! ; 4 
; 0088 1 LITERAL :; 4 
: 90 0085 1 BLOCK 16s! _SIZE=1 ! number of blocks in a group s 3 
; (91 0090 1 GROUP gerne tést _SIZE*512, i number of bytes in a group : 5 
: 3 0091 1 TRIALS_T ! number of times a block must be successfully a 
: 93 0098 1 ' be written before its declared no bad ; 2 
; 0094 1 ! OWN storage: F 3 
; © 0095 1! = 2 
:; 97 1 OWN z; 3 
; 698 1 Sm | 
; 299 98 (1 ! 3 H 
; 100 1 Blocks of test data. 3 

: 101 100 1 é ; 
: 108 + 4 1 bisk TEXT : VECTORCGROUP ~S {TE BYTE). 3 

; 10 1 § 1 BUFFER Vv GROUP" SIZE, BYTE), — 2 
; 104 10 GROUP_TEST _DATA : VECTORCGROUP_$1ZE BYTE, F 
; 196 61 5 1 READ_FAIL ! Logical indicating if group failed on read ; 

+ 107 0106 1 TRUNT_BLOCK, i first veN actuaily re removed in truncate S| 
; 108 1 1 COUNT =: INITIAL(O), ' count o of bed a s 3; 3 
a. 1 1 STARTING BLOCK, ' first VBN ie | 
eet 1901 oso. vecrorcs.worDd imitiaL(o.or, § {eee nlock in'a'g “group | 
; , Pte 0 operations 3 

s VW2 111 «71 F1lB 8 eer ortaten nen H,BY TS ' file oenciitcorton block 23 


ee 


votnoot F-yan-1985 17 55:33 Uokbalc bueencSstaue ict-e32;2 Page 53 


' 
} Equated symbols: 
BIND 

! 


Symbols for types of block test results 


WOR MAL_STS=0, ! test completed normally 
ERROR S188,” ' non-recoverable error 
BAD ! bad block indicated 
TRUe=1 ar" 

Fi TDESC=UPLITCF 188¢ _LENGTH,FIB), 

BuUFT = TEXT, ! bind buffer names 

BUF2 = Barer: 


' 
External references: 


EXTERNAL 
CHANNEL : WORD, 


MBX_CHANNEL - WORD, 
ACP_MAIL : BLOCKC BYTE), 
OLD-UCB; 
EXTERNAL ROUTINE 

SET ; 


channel to F11BXQP mailbox 
buffer from F11BxaP 
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BRUNO 


1 

Initialize access to a file and initialize last_block. 
iF NOT POSITION_TO_EOF () 

HEN 

RETURN; 


a 
Loop through ail groups in the file. 


WHILE TRUE DO 
BEGIN 


Find start of group to test. 
if gLASTBLock LSSU BLOCK_TEST_SIZE 
_ STARTING BLOCK=1 


3 {te 108 } GLOBAL ROUTINE SCAN : NOVALUE = : - 
a 144 1 !46 : 5 
; 16 145 i FUNCTIONAL DESCRIPTION: ; 
: 108 129 1 i Main routine for file ¢ processing. Con Controls the ; 5 
s 150 198 1! examination of the fN groups and the return oo 
; | 1 133 : of the files ALK, : 
i 7 151 1 | CALLING SEQUENCE: : be 
i 136 We 1 | CALL SCAN 5 ¥ 
x? 154 1 | FORMAL PARAMETERS: ;z 
- 155 1: NONE : 5 
; 138 136 ii : § 
: 15 157 1: IMPLICIT INPUTS: 7 5 
: 160 1 : 1: Channel to suspect device 

: 161 139 ACP MAIL: Mail from FI1A 

; 188 161 1! IMPLICIT OUTPUTS: 

oe a Bien 

; 166 164 1 | ROUTINE VALUE: 

; 167 165 1 NONE 

; 169 189 1 | SIDE EFFECTS: 

3 1o0 1e8 ; : The suspect file is returned to the system, blockwise. 

; 17 199 1 jee 

.! Oe 171 «1 

: 17% 1% BEGIN 

Sencar 

F 179 175 Clear the FI8. 

; 179 177 CHSF ILL (O,F IBSC_LENGTH,F IB); 

: 1 179 

3s 1 1 

3 ; ; 1 

> 1 188 T 

; 1 

: 185 

; 1 

; 1 

; 1 

; 1 

3 190 

; 191 

: 198 

; 194 

; 195 

: 199 

3 198 
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2 
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: 201 199 STARTING _BLOCK=.LAST_BLOCK-BLOCK_TEST_SIZE+*1; 

; 08 o} 

+ 206 ¢ ! Test group of blocks. 

; 205 S? } Action depends upon whether any ‘bad’ blocks found. 

; 09 5 CASE CHECK BADSTATUS<GROUP_BLOCKTEST()) 

: 3 . FROM NORMAC_STS TO BAD_STS”OF 

: $19 0509 re 

; \% 10 CNORMAL_STS] : IF .STARTING BLOCK EQLU 1 ! successful test 
3 1 iB THEN 

; 14 \¢ 4 BEGIN 

: 215 0215 4 NORMAL _COMPLETE(); 

: 216 0214 4 RETURN; 

; i 1 4 -" 

3 y 0317 ; LAST _BLOCK=.STARTING_BLOCK-1; 

; 221 $519 4 CERROR_STS) : BEGIN ! error, but not baablock error 
3 $s¢ assy 6 ERROR COMPLETE(); 

; $$ 0 $3 bs RETURA 

; $$5 0558 3 

: 226 0554 4 CBAD_STS) : BEGIN ! bad block found, scan inidividual blocks 
3 ger 0225 4 IF NOT GROUP_RETURN() 

: 228 osse 4 THEN 

; 94 0227 5 BEGIN 

; 0228 : ERROR COMPLETE(); 

; 231 0229 RETURA 

3 3 0230 4 END; 

. <e 0231 4 

; 234 OS36 5 IF (.STARTING BLOCK EQLU 1) 

3: @o2 0233 5 OR (.TRUNC_BLOCK LEQ 1) 

; 236 0234 4 THEN 

; 237 0235 : BEGIN 

; 238 0236 NORMAL _COMPLETE(); 

i; 239 OS ee ; RETURN 

; 260 0238 END 

3 241 3622 4 $ 

3 4 0240 4 LAST_BLOCK=.TRUNC_BLOCK-1 

: 26 OSes ND; 

3 266 $05 TES; 

3 vi OSez END; ! end of while true loop 
: 59 0245 1 END; 


- TITLE SCM ate 
IDENT \V04-001\ 
-PSECT SPLITS,NOWRT ,NOEXE ,2 


00000040 00000 P.AAA: .LONG 64 
00000000° 00004 «ADDRESS FIB : 
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-PSECT 


00000 DISK_TEXT: 


1E00 BUFFER BiKB 
$3600 GROUT tear SATA: 


-8. KB 


. K 
05°40 READ_FAIL: 


BLK 
05SA04 TRUNC ae% 
00000000 O0SA08 BAD_COUNT: * ue 
OSAOC STARTING. “BLOCK: 
OSA10 LAST BLOCK: 
IOSB: PONG 
FIB: “BLKB 
NORMAL _STS= 
ERROR STS= 
BAD_STS= 
TRUE 
FALSE= 
FIB_DESC= 
uUFT 
BUF 2= 
EXTRN 
»EXTRN 
“EXTRN 
-PSECT 
007C 00000 ENTRY 
9E Bans MOV 
2C 0000 MOVC 
F 1 CALLS 
5 00015 BLBC 
D1 18 18: CMPL 
if 1¢ BGEQU 
) 16 MOVL 
i BRB 
C ; ¢: SUBL3 
FB $: CALLS 
dD PUSHL 
FB fF ALLS 
CF CASEL 
4$: WORD 
D1 5$: CMPL 
i if BEQL 
C ; SUBL3 
11 9004 BRB 
FB QOO04A 6$: CALLS 
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SOWNS ,NOEXE , 2 


7880 


7680 


coor ££ oO Ff £& 


-AAA 
tr TEXT 


FER 
cHNeeL. ME CHANNEL 
ACP_MAIL, OLB_uCcB 
SET—UCB 


gcc 


SCODES,NOWRT,2 

SCAN Save R2. R3,R4,R5,R6 
START ING_6 Re 
#0, =BES “poe, 
#0, eettiom roeor 
AST_BLOCK, #15 

#1, STARTING_BLOCK 


#14, LAST_BLOCK, STARTING BLOCK 
, GROUP"BLOCKTEST 


RO’ 
#1, CHECK_BADSTATUS 
80. #0, #2 
-4$,- 
$-4$;- 
6$-4$ 
TARTING_BLOCK, #1 
#1, STARTING BLOCK, LAST_BLOCK 
#0, GROUP_RETURN 
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; Routine Size: 114 bytes, 


; 248 0246 1 


0000v ef 
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01 

0000v CF 
FB AG 


Routine Base: 
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11: 
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ral Oh tesa V4.0-742 
BADBLK .BUGSRCISCANF ILE .832;2 
RQ. HH 
#0, ERROR_COMPLETE 

TARTING_BLOCK, #1 

TRUNC BLOCK, a 
ro NORMAL _COMPLETE 


#1, TRUNC_BLOCK, LAST_BLOCK 
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ROUTINE POSITION_TO_EOF = 


'e¢ 

i FUNCTIONAL DESCRIPTION: 

Routine initializes the FIB, accesses the file whose 
ee the acp_mail, and determines the files Length 
n cks, 


i CALLING SEQUENCE: 
CALL OPSITION_TO_EOF 


{FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
ACP_MAIL BBS$W_FID): File ID of suspect file 
i IMPLICIT gurPyrs: 
Last BLOCK: Total number of blocks in file 
Assorted fields set by IO$_ACCESS 


{ROUTINE VALUE : 
If IO$_ACCESS fails then that code is returned 


{ SIDE EFFECTS: 
NONE 


a ee i ee ee ee i ee ee 


BEGIN 


STAT_BLOCK: VECTORCS,WORD], ! space for file statistics block 
! returned by IOS_ACCESS 
ATTRIBUTES: VECTORC3) 


INITIAL (ATRSC_STATBLK*16+10,STAT_BLOCK,0): 
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i Set file access attributes. 
eer iesy- WRITEJ=1; 
IBCF IBSV" TRUNCJ=1; 
; Push File ID into fib. 
CHSMOVE (6, ACP_MAILLBBSSW_F1ID),F IBLF IBSW_F IDI); 


Open the specified file and get its size in blocks. 
DO_Q10w( 10$_ACCESS+10S$M_ACCESS.F 18_DESC,0,0,0, ATTRIBUTES); 


1 
! Move the word swapped virtual block number. 
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; 5 tast BLOCK<0,16>=.S1AT_BLOCK[3); 
; 03 LAST~ murat 16>=, STAT ese 
: 311 RETURN TRUE; 

g 12 END; 


-PSECT SOWNS ,NOEXE,2 
OSASC STAT_BLOCK: 


-BLKB 10 
B3n66 -BLKB 2 
0009000A O5A68 ATTRIBUTES: 
0000000' ZhGe ADDRESS STAT_BLOCK 3 
0000000 OSA -LONG 0 : 


«PSECT SCODES,NOWRT,2 


007C 00000 POSITION_TO_EOF: 
WORD Save R2,R3,R4,R5,R6 


56 0000" CF 9 90002 MOV LAST_BLOCK, R6 ; 
9p a6 01 88 000 BISB2 #1, Fige] : 
236 01 00008 BISB2 «#1. FIB+23 : 

10 a6 00006 CF 06 O00F MOVCS #6. ACP _MAIL+12, FIB+4 : 
58 AG OOF 0016 PUSHAB ATTRIBUTES : 

7E 7C 0001 CLRQ = =( SP) : 

7E D4 0001B CLRL 0s =( SP : 

0000" CF 9F 0001D PUS 1B_DESC : 

7E 72 8F 9A 00021 MOVZBL #11% Bahia) : 

0000v CF 06 FB 0025 CALLS #6, : 

66 52 Aé BO 0002A MOV STAT PBcock’6, LAST_BLOCK 3 
02 A6 50 A6é BO 00 : MOVW stat gptockes. LAST“BLOCK+2 : 

50 01 00 000 MOVL F 

04 000 RET : 


3; Routine Size: 55 bytes, Routine Base: S$CODE$ + 0072 
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ROUTINE TRUNCATE (VBN) = 
lee 


i FUNCTIONAL DESCRIPTION: 


Routine truncates of the end of the current file 
starting at the indicated block number. Because of 


Last block truncated is placed into trunc_block. 


CALLING SEQUENCE: 
CALL TRUNCATE (ARG1) 


FORMAL PARAMETERS: 
ARG]: Virtual block at which to start truncate 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Status of IOS_MODIFY operation is returned 
SIDE EFFECTS: 
NONE 


Set block to truncate at. 
F IBLF 1B$L_EXVBNJ=.VBN; 


' 
: Truncate a piece off of file. 


STATUS=DO_Q10W(10$_MODIFY,FIB_DESC,0,0,0,0); 
' 
Clear size field. 


F IBLF IBSL_EXSZJ=0; 
t 
Check for rounding from clustering. 


iF VON NEQ .FIBCFIBSL_EXVBN] 
Ex ge RUNC-BLOr" =. FIBLF 1BSL_EXVEN] 
TRUNC_BLOCK=. VEN; 
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cluster mot all blocks requested may be truncated. 
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3; Routine Size: 
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0004 60000 TRUNCATE: 
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F1B+28 
B+28, TRUNC_BLOCK 
VBN, T ‘INC_BLOCK 
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SCAN ILE GosSnct9R5 17:20:5] Yancdt BLingca3 v4 0-742 
ROUTINE TRUNCATE_BAD (VBN) = 


'e 


i FUNCTIONAL DESCRIPTION: 


erate BAD per teres 2 truncation operations. 

All blocks of er higher VBN's) are returned to 

the system v aa get to truncate. The current 

VBN as ‘bad’ is truncated off the current file 

and onto the bad block file. Due to chupper ing more blocks 
than requested may be added to the bad block file and 
trunc_block is set to the last block added. 


CALLING SEQUENCE: 
TRUNCATE _BAD (ARG1) 


FORMAL PARAMETERS: 
ARG1: Virtual Block Number of block to mark bad 


CESRSS SES ESES TEES SS 


Truncate off good portions of file. 
STATUS=TRUNCATE (. VBN¢1); 


IF (.STATUS NEQ SS$_NORMAL) 
me (.STATUS NEQ SSS$_ENDOFF ILE) 


EN 
RETURN .STATUS; 


IMPLICIT INPUTS: 
Ms NONE 
400 IMPLICIT OUTPUTS: 
ret TRUNC_BLOCK: Last biock (lowest VBN) added to bad block file 
40 ROUTINE VALUE: 
rte If either truncate operation fails then that status is returned 
SIDE yi 8 a 
08 
+ iol 
1 BEGIN 
1 LOCAL 
; STATUS; 
: BAD_COUNT=.BAD_COUNT+1; 
1 
1 
1 


' 
Set block to truncate at. 


F IGCF IBSL_EXVBN3=.VBN; 
' 
Note return is to bad block file. 
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Fas 


vounoot” basen t9g5 17 88:73 BXbax®bugsncSstawe 10t-832;2 pose 5 v0" 
435 0 2 FIBCFIBSV_MARKBADJ=1; 

; i i Truncate a piece off of file. 

440 5 @ STATUS=D0_010W(10$_MODIFY,FIB_DESC,0,0,0,0); 
ca8 7 Clear size field. 

: ree re F IBLF IB$L_EXSZ2)=0; 

: seg c§ 7 Check for rounding from clustering. 

430 45 2 IF .VON NEQ .FIBCFIGSL_EXVBN] 

; 43¢ ‘3 , TRUNC_BLOCK=.f !2CF IGSL_EXVBN] 

; 435 a 3 TRUNC_BLOCK=.VBN; 

: ret 26 ; Clear mark bad indicator. 

: rhe ete: F IBCF IBSV_MARKBADJ=0; 

: ret pee RETURN .STATUS 

: 46 rt END; 


0004 00000 TRUNCATE. BAD: 


0 09 Cd 6d Od Co Cd 0d 09 Cd 09 Od On Od Od Od GD OD Od OD C9 Gd OD OD OD OD Cd OD Od OD OD 09 OD Cd 00 00 Od OD 09 09 0D 0D CD 09 00 00 0? C9. 09 0D CD AD 


“WORD Save R2 : 0373 
52 0000" CF 9 MOVAB F1B+28, R2 : 

DO A2 06 INCL. BAD_COUNT : 041 

7E 04 ac 1 C1 ADDL3) #1, "VBN, -(SP) + 041 
BF AF oe CALLS #1. TRUNCATE ; 

01 9 : CPL status, a : 0417 

00000870 &F 0 pi 0¢ CMPL STATUS, #2160 ; 0418 
fF BNEQ 4$ 3 

6 046 AC MOVL  -VBN, F 18528 : 042° 

fBC‘é«A 04 BISB2 #4, FIB+2 : 04 

— 7¢ CLRQ. «= ( §P) : 04 
7E 7 CLRQ = =(SP) 3 
0000" CF 9F PUS F1B_DESC : 
6 OD PUSHL 4 3 
0900v CF F CALLS #6, DO_Q10W : 

FC OA2 OD CLRL F118 +24 : 0440 

62 06 ac p CRPL BN, F1B+28 3 044 

CC A2 es p MOVL 18+28, TRUNC_BLOCK > 0447 

ec 04 ac 00 MOVL § VBN, TRUNC_BLOCK + 0449 


SCANF ILE -Jan-1985 1 75 AX-11 Bliss-32 v4.0- Pa 14 
yoen00t b-an-1995 17 +33: 3} Loree K nustacistain 1007 832;2 - (6) 
FB A2 04 aA 004C 3$: BICB2 #4, F1B+23 : 0654 

4 00050 4$: RET 3; 0458 
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ROUTINE BLOCKTEST(VBN) = 
lee 


i FUNCTIONAL DESCRIPTION: 


This routine tests a single virtual block 

for ‘badness’. The routine reads the block a nyunber 
of times, ee for a data sensitive condition, and then 
writes and reads back the worst case pattern. Upon any 
abnormal condition the routine exits with that status. 


CALLING SEQUENCE: 
CALL BLOCKTEST (ARG1) 


FORMAL PARAMETERS: 
ARG1: Vircual block to be tested 


IMPLICIT INPUTS: 
READ_FAIL: a logical variabie, when true indicates that 

group_blocktest encountered an error while reading the 

user data on the current group. This directs blocktest 

to read the individual blocks before overwriting them 


IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

If any Q10W fails then its status is returned 
SIDE EFFECTS: 

NONE 


BEGIN 


LOCAL 
STATUS; 


If group test failed in data dependent manner, do 2 series of reads 
end writes of the original data. 


Note that for DSA disks, ur tcing the block could clear up the 
SSS_FORCEDERROR encountered during the read. 

A double buffering technique is used for the read/write buffers. A boolean 
flag is used to indicate which buffer is to be written from and the other 
is to be read into. 


For reference: following is the section of code that previously performed 
the data-sensitive test (reading the block a number of times). 


IF pREAD FALL 


INCR TEST INDEX FROM 1 
IF NOT (STATUS=D0_010W( 


T 
] NHRETRY ,DISK_TEXT,512,.VBN,0,0)) 


GoSnn1905 17:23:51 Yuet Bl ias-3e ve.0-742 


2003003000 0 0.02 02 0d > C9 GD GD CD GD CD. CD.CD 
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DoODODODOVDO 


oo 


m 2 
Fohov-198e 11:98:75 — YeanaxcBuesncSstanricecese:2 © "2%" If 
TMERETURN STATUS; 


— 


DOWODNAWUSE UO OO~ 


' 

i 

i 

IF .READ_FAIL 
TH 


EN 
BEGIN 
LOCAL ! boolean flag 
FLAG; 
FLAG = TRUE; ! init flag 


DO_Q10W( 10$_READVBLK*+10$M_INHRETRY ,BUF1,512,.VBN,0,0); 
INCR TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 
BEGIN 


DOOCOSCSCSOSOOOCOOOOOOOOOO 
PUPVPVIV SVL SVSUSV IU SUSUSUSVUIVSISISIA 


VMeuwn— 


STATUS = DO_Q1J0W(1O$_WRITEVBLK+10$M_INHRETRY, 
CIF”. FLAG THEN BUFT 
eye BUF 2), 
512,.VBN,0,0); 
IF NOT .STATUS 
THEN 


WAAL AAI AIPORIPIPUNIIUUN ES. BEB BRR ERE ERNE E EEE EPS FPA IAAP 


5 
5 
03 
0860 
Ere RETURN .STATUS; 
263 ase§ STATUS = DO_Q]0W(10$_READVBLK+10S" —_— 
50 544 CIF” .FLAG THEN BUF 
ge) 0545 Ey Se Fl), 
26 3266 512,.VBN.0,0); 
327 tt 4 NOT .STATUS 
$22 B3ep RETURN .STATUS; 
i 0353 ee (512, BUFI, 512, BUF2) 
38 338 RETURN SS$_PARITY; 
561 0355 FLAG = NOT .FLAG; 
268 338 END; ! end of INCR Loo 
a 228 END; ! enf of REAL_FAIL condition 
' 
4 361 Block must pass read/write test multiple before being marked good. 
9 368 INCR_TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 
z 366 Write to the indicated disk block. 
R 369 if NOT (STATUS=D0_Q]0W( 10$_WRITEVBLK+10$M_INHRETRY,GROUP_TEST_DATA,512,.VBN,0,0)) 
7 0 RETURN .STATUS; 
: io 
5 378 i Try and read it back. 
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voen00t 
1 
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By (STATUS=D0_Q]0W(10$_READVBLK+10SM_INHRCTRY ,DISK_TEXT,512,.VBN,0,0)) 
RETURN .STATUS; 


Make sure its the same. 
if CHSNEG (512,GROUP_TEST_DATA,512,DISK_TEXT) 
a RETURN SS$_PARITY 


RETURN TRUE; 
5 END; 


RELNLES 


O1FC 00000 BLOCKTEST: 
o10u, Rb 


é v MOVAB 
: MOVAB . 
A BLBC READ FAIL, 6$ 
54 MOVL #1, FLAG 
cro = § 
PUS 


HL 
MOVZWL wiz, -(SP) 
PUS 


HL 
MOVZWL #32817, -(SP) 
CALLS” #6, DO.010u 

MOVE #1 TEST_INDEX 


~ 

m 

o 

Se 
yt meg pe tm ena 
PROM MH RWYROM oyun 


HL 
MOVZWL #512, -(SP) 
BLBC FLAG, 2% 
ROVAB Ry - RO 


0 8 


BRB 
50 1£00 ; ROVAB 2, RO 
7 8030 &F MOVZWL #32816, -(SP) 
hour RO. S$ Ruse 
1 8LB STATUS, $3 
i PUSHL BN 
7e 0200 f MOVZUL ye12, =(SP) 
4 BLBC FLAG. 4 
0 1£00 c7 MOVAB F2, R 
; BRB 
50 MOVAB F1, RO 
0 PUSHL 


MOVZ2WL #52817, -(SP) 
CALLS + ¥ DO_210W 
MO RO, STATUS 
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; Routine Size: 223 bytes, 
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Routine Base: 
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D 
0 
, Be 
0200 C 
dD 0008 
8031 C 0008 
FB QOOBA 
D0 00080 
E8 000C 
DO OO0CS 8S 
SS 8 
0200 9 Q00C7 9$: 
13 QOOCF 
O1F4 3C 00001 108 
04 00006 
3 F3 00007 118 
1 p00 00008 


Oo 
=> 
So 
So 
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SCODES + 0128 


RTS HS COT Nees atta PaaS 


STATUS, 8$ 
#2, 6uF1, BUF2 


r) ye12 
rest path 
oy 
Boats” 
noe 8$ 


=(SP) ° 


Vv 
W2, -(SP) 
R? 
#32817, =(SP) 
#6, DO_Q10W 
STATUS 
STATUS, 9$ 
STATUS, RO 
asi. GROUP_TEST_DATA, DISK_TEXT 
#500, RO 
#3, TEST_INDEX, 7$ 
#1, RO 
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97 a39 ROUTINE GROUP_BLOCKTEST = 

98 91 

99 238 '+ 
600 22 ! FUNCTIONAL DESCRIPTION: 

601 0594 ! 
60 0595 Routine tests groups of virtually contiguous biocks for 

60 238 ‘badness’. Should any of the 1/0 operations fail the status 
604 59 is immediately returned. Groups are read several times for 
605 598 error. A worst case is written to the group and then read 
O08 0599 back. The read data is compared with that written. 


333 
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CALLING SEQUENCE: 
CALL GROUP_BLOCKEST 


FORMAL PARAMETERS: 
NONE 


B382 


STARTING BLOCK: First virtual block in group 
LAST_BLOCK: Last virtual block in group 


oO 
woo 


IMPLICIT OUTPUTS: 
NONE 


es et 


i 
i 
i 
i 
i 
i 
i 
! IMPLICIT INPUTS: 
i 
i 
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06 
06 
0610 
0611 
0618 
06 
0614 ROUTINE VALUE: ] 
0615 NONE | 
06 $ | 
06 SIDE EFFECTS: | 
0618 NONE | 
0619 | 
0620 -- | 
0621 | 
06 ¢ BEGIN | 
06 | 
0624 LOCAL | 
0625 CURRENT_SIZE, | 
06 $ STATUS; | 

3 0658 3 | ! 

636 0629 ! For short files or for the start of a file, group size may be shorter | 

° 7 06 than the default. 

639 be IF .STARTING_BLOCK EQL 1 

640 THEN 

641 CURRENT_SIZE=.LAST_BLOCK*512 

646 ELS 

64 CURRENT_SIZE=GROUP_SIZE; 

es . 

rk] H : Default that failures will not be data sensitive. 

648 1 READ_FAIL=FALSE; 

is i 

651 4 ! Group failure may be data sensitive. Read/write the original data several 

636 2 times before passing to write/read testing. 
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; 
5 
; 
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Se 


the block oe clear up the 


woge that for DSA disks, writin 
ss 


A double buffering 
he is used te ind 
is to be 


FORCEDERROR encountered dur 


echnique is used for the read/write buffers. A boolean 
<7 cate which buffer is to be written from and the other 
r nto. 


For reference: following is the section of code that previously perfcrmed 
the data-sensitive test (reading the block a number of times). 


INCR TEST INDEX FROM 1 TO TRIALS _TO_SUC D 
con (STATUS=D0_Q10W(10$_READVELK?10SM_ TWHRETRY, DISK_TEXT,.CURRENT_SIZE,.STARTING_LLOCK,0,0)) 


BEGIN 
READ PAILSTRUE; 
arm N .STATUS 


i 
BEGIN 


LOCAL 
FLAG; 


FLAG = TRUE; 


! data-sensitive test block 
! boolean flag 


DO_Q10W( 10$_READVBLK+]0S$M_INHRETRY ,BUF1,.CURRENT_SIZE,.STARTING_BLOCK,0,0); 
INCR TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 
BEGIN 


STATUS = DO_010W(10$_uRITEVBLK+ 108M INHRETRY, 
CIF™.FLAG T wen eur 4% 


IF NOT .STATUS 
THEN 


CO ART ING slits, 0); 


READ EA FAIL = TRUE 
s : 
— N .STATUS; 


STATUS = pO MATE FLAG THEN. BUF pene 


IF NOT .STATUS 
THEN 


CURT ING SHE, 0); 


IN 
FAIL = TRUE; 


READ 
RETURN .STATUS; 
END; 


ft cas (.CURRENT_SIZE, BUF1, .CURRENT_SIZE, BUF 2) 


Pasa-t905 17:20:5] YH OLiescae ve-oc742 Page 2 


versa 


—~ 


ab a 


READ Al S$. PARITY: 
END: 


FLAG = NOT .FLAG; 


o: ! end of INCR loop 
! end of data-sensitive block 


i Group must pass write/read test muitiple times before being considered good. 
ince test. INDEX FROM 1 TO TRIALS_TO_SUC DO 
' 


> tt tt 


VSAM 9 OCONAUES WN OOONOUS WN O0@ 
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Write to the indicated disk block. 
if NOT (STATUS=D0_Q10W(10$_WRITEVBLK+10SM_INHRETRY,GROUP_TEST_DATA, .CURRENT_SIZE,.STARTING_BLOCK,0,0)) 


i 
i MENRETURN STATUS: 
fa 
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' 
Try and read it back. 


iF F_NOT(STATUS=D0_Q10W(1O$_READVBLK+108M_INHRETRY, DISK_TEXT, .CURRENT_SIZE,.STARTING_BLOCK 0,0) 
RETURN .STATUS; 
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740 ‘ 

ee Make sure its the same. 

at if CHSNEQ(. CURRENT_SIZE,GROUP_TEST_DATA,.CURRENT_SIZE,DISK_TEXT) 
745 RETURN SS$_PARITY 

74 9 ND; 

74 0 

748 ; RETURN TRUE; 


O3FC 00000 GROUP_BLOCKTEST: 
“= ,WORD Save R2,R3,R4,R5,R6,R7,RB,RO ; 0590 


59 9900y CF 9E 3 MOVAB DO Q10W, R ; 
8 00° CF MOVAB  STARTING_BLOCK, : 
01 CPL STARTINGCBLOCK: & > 0632 
oF BNEQ : 
54 04 as 1 ASHL , LAST_BLOCK, CURRENT_SIZE > 0634 
5 | 1 BRB 3 
54 1600 8F 3C 00018 1$: MOVZWL #7680, CURRENT_SIZE > 0636 
a F4 ag dé 3 23: CLRL REA D fall IL 3 4 
As Ps 
v Oe § CLRO 2s = §P) : ay 


= 


De Se Se Se Ge Oe Se Se Se Se Se Ge Se Se Se Ge Sse Ge Fe Ge Se Se Se Se Se Se Se Gets GoGo Se He Se Se Ge Se Be Se Se Se SH Se Se S5 See Se ee Se Se Se Se Ss Seas 


ee ee me ceed me ea me me ee ee me ee em ee mm ee ee ee ee ee ee a ed ed ed = od od od = od ot 
i ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee 


yoenoote be sann TS Crt ee TS Tee Pace $$ 


68 5 PUSHL STARTING OCK : 
ASEG eB ite tei 
7e 8031 +: MOVZWL #32817, -(SP) : 
$3 if hora 00.01 INDEX ? 0675 
E 3$ CLRO 30s_ «= ¢ §P) + 067; 
A PUSHL ST ARTING BLOCK : 
4 C PUSHL CURRENT SIZE ; 068) 
7 E BLBC. FLA pur: rh : 
0 ASF g 1 MOVAB BY RO : 
50 C3F4 8 is MOVAB BUF2, RO : 
D 5$ PUSHL 3 
7 8030 &F F MOVZWL ; 52816, “gs : 0678 
4 CALLS #6, : 
: 7 MOVL RO STaTY : 
6 A BLBC stATU S, + 0683 
: D CLRQ = : 0690 
F PUSHL  $T aR ING BLOC + 0694 
4 1 PUSHL CURRENT SIZE > 0693 
7 5 3 BLBC FLAG. 6$ 3 
0 C3F4 C8 MOVAB BUF + 0691 
0 BRB $ ; 
50 ASFG 6B $0 $$: MOVAB BUF1, RO ; 
0 2 7$: PUSHL R $ 
7 8031 8F 3C 0007 MOVZWL #32817, “gs + 0690 
6 F CALLS #6, DOO : 
56 D MOVL RO, STATUS. ; 
06 56 C€ BLBS STATUS, 9$ > 0695 
Fo OAS 01 DO 00082 8s: MOVL #1, READ_FAIL : 0698 
4A 11 BRB 12$ ; 0699 
C3F4 «OCB ASFS «CB 34 9 9$: CMP cS : RRENT_SIZE, BUF1, BUF2 : 0702 
Fo AB 84 06 MOVL #1, READ_FAIL ; 9705 
48 1 0096 BRB : 0706 
55 55 D2 00098 10S MCOML FLA FL : 0709 
99 57 : AOBLEQ #3, TEST_INDEX, 3S ; 0675 
55 1 p MOVL #1, TEST~INDEX : 0717 
: C 11$ CLRO 0s = §P) : 0722 
§ DD PUSHL STARTING BLOCK : 
4 DD PUSHL CURRENT SIZE ; 
#4 CBO PUS GROUP TEST DATA : 
7 030 &8F 3C MOVZWL #32816, -(SP : 
6 FB 00( CALLS #6, D D0Q1 ; 
56 D MOVL STATUS ; 
18 6 : BLBC RyATUS. $ ; 
C CLRQ 40s =( SP) : 0729 
DD PUSHL STARTING BLOCK ; 
4 DD PUSHL CURRENT SIZE : 
ASFG CB OF PUSHAB BI sk J T ; 
7 8031 8F 3¢ MOVZWL #32817, =(SP) : 
: F CALLS #6, DO Q10W : 
6 D VL STAT ; 
4 6 €E F BLBS status. $ 3 
0 6 BO 128:  MOVL STATUS. R : 9731 
RET ; 


sunt her 


ASFG = CB EIFS §6C8 de 3 13$: 
50 O1F4 F C ep 14%: 
B8 5 3 FS £6 15$: 
33 $i dO EA 
04 O00ED 
; Routine Size: 238 bytes, Routine Base: S$CODE$S + 0207 
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3 i § re } ROUTINE DO_QIOW (FUNCTIC:., o +,P5s = 

: 754 746 1 t+ 

: i 5 Sr : : FUNCTIONAL DESCRIPTION: 

3 t $ 743 Common routine for performing $Q10 system service. 
: F238 a0 1 § CALLING SEQUENCE: 

. rey f § } CALL DO_QIOW (ARG1,ARG2,ARG3,ARG4,ARG5,ARG6) 
: 76 0754 1 | FORMAL PARAMETERS: 

:; 76 755 1! ARG1: Q1]0W function code 

: 764 7 § 1! ARG2: The address of the P1 parameter 
; 765 7 1! ARGS: The address of the Ps parameter 
: re6 7 8 1! ARG4: The address of the P35 parameter 
; 76 7 . 7 ARGS: The address of the P4 parameter 
: res 8780 : ARG6: The address of the PS parameter 
: 770 0766 1 | IMPLICIT INPUTS: 

3 777i 7 1! CHANNEL: The channel number to the FILES ACP 
: ja he: ! 10SB: The I/0 status block 

: 77% 0766 1 | IMPLICIT OUTPUTS: 

a Ril 

: 77 O79 1} ROUTINE VALUE: 

: ere Brn ! The system service code for the $Q10W 
: 780 17 1 ' SIDE EFFECTS: 

3; 781 ame NONE 

; 78 774 «1! 

fe wai’ 

om Sim 

: 78 re STATUS; 

oer 

; a , ; ; Do Q10W and check io service return. 

: 79 P 07 if NOT (STATUS = $Q1OW( CHAN = .CHANNEL, 

; 79 P 0785 10SB = 10SB 

: 79% P 07 FUNC = . FUNCTION, 

Py 795 4 y 4 = Pe 

>. F e e 

; iF is 190 Pa ° 8: 

. = - 

: 759 291 oo PS = -P5$) 

: 801 798 RETURN .STATUS; 

r : a : Check 1/0 completion return. 

; 798 if NOT .10SBL0} 

3 HEN 


RETURN .10SB(03 


es 
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eEXTRN SYSSQI0W 


000 DO_GIOW:.WORD Save R2 : 0744 

52 MOVAB 10SB, R2 ; 
CLRL © =(SPS + 0791 

7E VG P4, =(SP) ; 

7E vQ  P2. =(SP) ; 

PUSHL ; 

CLRQ.  =(SP) 3 

PUSHL : 

PUSHL FUNCTION ; 

7E MOVZWL CHANNEL, =(SP) F 

CLRL ss = (SP) ; 

000000006 CALLS #12, SYS$Q10W ; 
Q SLBS erat ia 2 079. 
0 MOV ZL 10SB, RO ; ts 

50 1$: MOVL #1, RO ; 
2s: RET 3 0804 


; Routine Size: 55 bytes, Routine Base: SCODE$ + 02F5 


3 > ° - = or 
vou~00i Hoyer T:98:5 WAGGAO ASEM iliZees2:2 dt 


; +} } GLOBAL ROUTINE DATA_INIT: NOVALUE = 
: 1 1 !4s 

; | : FUNCTIONAL DESCRIPTION: 

: 13 : Initializes test blocks with the worst case pattern. 
: 821 1 | CALLING SEQUENCE: 

; ¢ ; CALL DATA_INIT 

: B24 1 | FORMAL PARAMETERS: 

; 5 ; NONE 

: 2 1 | IMPLICIT INPUTS: 

3 3 ! ' GROUP_TEST_DATA: Buffer used to write groups of blocks 
; S 1 | IMPLICIT OUTPUTS: 

; 831 1! NONE 

: ii 

: B38 § 1 ' ROUTINE VALUE: 

; 8 0 1 NONE 

: 835 0 1 

; 836 0 1 ! SIDE EFFECTS: 

2. en ri 

: 839 0 1 ie. 

; 840 1 

3 (841 6 BEGIN 

: Boe 08 REGISTER 

; 84 08 POINTER, 

3 eee 0 END_POINTER; 

3 5 8 LITERAL 

; 846 08 i WORST_CASE_PAT=%0' 165555 °*16+2%0' 153333’; 
: Bes Et: ' 

: Ben Beet Init pointers to buffer. 

: 851 0 ° POINTER=GROUP_TEST_DATAC0); 

; 83¢ ; END_POINTER=(GROUP~S12ZE*-45+. POINTER; 
: 854 5 2! 

3 22 § : Fill buffer with worst case pattern. 
: 38 WHILE .POINTER NEQU .END_POINTER DO 

$ 38 BEGIN 

: 85 30 -POINTER=WORST_CASE_PAT; 

: 5 POINTER=.POINTER+4 

3 1 26 END; 

; $ 5 

; 54 2 RETURN 

; 855 

; 5 856 1 END: 


wn 


8 


SES53F 


Be Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Ge Ge Se Ge Se Se Ge Ge Se Se Ge Se Ge Se Se Se Ge Se Ge Se Se Se Ge Se Se Se Se Se Ss Se Se Se ee SH Se See Sees 


DOOD OOOOOOOOVONOO 
RPORQPINIAY — tt to 


Fun 90 OOO vr lwnO 


PIPPI IPIPIAIPIAIM PIPPIN II) sd dd od et ed dd 
- 


AX-11 Bliss-3 0-74 
BADBLK .BUGSRC JSCANF ILE .832;2 
ROUTINE CHECK_BADSTATUS (STATUS) = 


oe 
FUNCTIONAL DESCRIFTION: 
ous tne classifies the system service codes that it receives 


: device error indi 


ating a bad block 
unrecoverable dev r 


i CALLING SEQUENCE: 
CALL CHECK_BADSTATUS (ARG1) 


FORMAL PARAMETERS: 
! ARG1: A system service code 


i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 

. NONE 


i ROUTINE VALUE: 


Returns as a value of the 3 above mentioned codes: 
NORMAL 


one 
. ERROR_STS or BAD_STS 
i COMPLETION CODES: 
i NONE 


' 
i Possible 1/0 codes are divided into three cases: 
! good blocks, bad blocks, and severe device errors. 


SELECTONE .STATUS OF 
SET 


: RETURN NORMAL_STS; 


: RETURN BAD_STS; 
: RETURN ERROR_STS 


vOo~001 


s 92 


3; Routine Size: 


0915 1 END; 


00000054 
0000005C 
0000008C 
0000008C 
000001F4 
00002144 


Routine Base: 


50 


0000 00000 CHECK _BADSTATUS: 
WORD 


of 


FOR ON (UWS OO yr 


SCODES + 0347 


” 
“Nove19 


a. 11:88:45 


rey By 
BADBLK .BUGSRC staie 106-832; 2 


Pane of} 


0910 


991 
091 


eof iL 


3 
SCANF ILE B-san-' 5 17:22: AX-11 Bliss-32 V4.0-742 P 0 
voor oot rieynt9be 11:55:48 — Yorppux bugeredstane 10t-832:2 age 35 
ROUTINE NORMAL COMPLETE : NOVALUE = 
'oe 
FUNCTIONAL DESCRIPTION: 
Called after entire file has been scanned for bad blocks. 


Any of the file remaining is geee and should be returned 
to the volume. File is deleted and deaccessed. 


VFN —O0OOs 


CALLING SEQUENCE: 
CALL NORNAL COMPLETE 


i 

i 

i 

i 

i 

i 

' 

' FORMAL PARAMETERS: 

' NONE 

' 

! JMPLICIT INPUTS: 

FIB: File identification of current file. 
! JMPLICIT OUTPUTS: 
‘ NONE 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


wn OONO VME WN "OOOO 


w 


ROUTINE VALUE: 
NONE 


COMPLETION CODES: 
NONE 


SISSSERELPLPPPLSLO LOL OLS LL LS 


wn wm 
ab Ath ie WN 0 OO@NOU FW 


SIDE EFFECTS: 
NONE 


Be So Se Se Be Se Se Se Se Se Ge Ge Se Se Se Se Se Se Ge Se Se Se Ge Fe Se Ge Sse Ge Se Ge Se G+ Se Se Se Se Se Ge Ge Se He St Se Se Se Os Se Se Se Se Se Fe Se Se Ss Se we 
oO 


PRIPRIRIPORIFIFIFIFIRIPIHPIPIPIPIPIPIRIIIAPDAIIIAY) a ed td td od od od ot 
tr 


940 
Me 
944 
.] 945 
3 ; § ee 
9 : 8 BEGIN 
960 : OCAL 
961 ? STATUS; 
ore 
964 : ! Truncate any of the file that remains. If the truncation is successful, 
965 954 ' we delete the file and then deaccess it. Otherwise, we simply deaccess 
206 955 ! the file. 
96 § ! 
i 3 STATUS=TRUNCATE (1); 
9 96( IF (.STATUS EQL SS$_NORMAL) 
378 9¢ OR (.STATUS EQL SSS_ENDOFFILE) 
en a 
75 ; Delete the file. 
335 DO_010W( 10$_DELETE+JOSM_DELETE .F 18_DESC.0,0,0,0); 
Hh . 
3 : Deaccess the file. 
: DO_Q10W(10$_DEACCESS.F 18_DESC.0,0,0,0); 


sent 


s ¥ 

3 WS 
r 
-: 


; Routine Size: 


: 992 


73 ' 
974 i R 
979 ! file (CO,0JBADLOG.SYS). 
37 REMOVE _PBB (FIBCFIBSW_FIDJ); 
979 2 RETURN 
980 END; 
1 
FOOD CF 0 
01 0 0 
09 1 
00000870 a8F 20 p 
7E 7 
7E 7 
9090" F 9 
7E 0135 «BF 3 
FF39 CF 6 F 
. 
7E 7 
0000' CF 9 
4 0 
FF2A CF 06 F 
0000" CF 9 
0000v CF 01 f 
66 bytes, Routine Base: S$CODE$ + 0393 
0981 1 


11:88:45 


emove pengin Bad Block entries for this file from the Pending Bad Block 


FB 


CoOoooooooooo 
Oooooooccood 
WARINNIN “OO 
DA-SHBORMDONNMS 


SoOooooooooooooooo 


ooooo 
ooooo 
ful 


FO WI MMOD MOOV —W— 
-- 


Save nothing 


#1, TRUNCATE 
STATUS, #1 


Sg ATus. #2160 
=(SP) 


#6, DO_Q10W 
FIB+4 
#1, REMOVE_PBB 


AX-11 Bliss-3 


V4.0-74 
BADBLK BUGSRCISCAN ILE B32: 2 


4 
vo4~001 beytectQGs 17:38:8 BADBLK-BUGSRCISCANFILECBS2;2 "99°45 


ROUTINE ERROR_COMPLETE : NOVALUE = 


33 


lee 


FUNCTIONAL DESCRIPTION: 


OO000 
uw 


This routine is called when a fatal device error or systen service 
error is encountered during processing. The current file is truncated 
to zero blocks and deaccessed. 


a 


SESS SSSSS SES 


33 


—_ 


CALLING SEQUENCE: 
CALL ERROR_COMPLETE 


FORMAL PARAMETERS: 
NONE 


333 


333 


IMPLICIT INPUTS: 


3 1 
3 1 
3 1 
r 1 
3 1 
3 1 
3 1 
3 1 
8 1 
3% 1 
3 Y 1 
3 3 1 
3; 7 1 
3 7 1 
3 : : 
; 1010 0998 1 FIB: File identification of current file. 
: 1011 0999 1 
3 9 1000 1 ! IMPLICIT OUTPUTS: 
: 101 1001 1 NONE 
3 1014 1908 1 
3 1015 100 1 ROUTINE VALUE: 
3 1918 1006 1 NONE 
3 101 1005 1 
: 1018 1006 1 ! SIDE EFFECTS: 
103 1008 | ete: 
s 1053 1909 1 !=- 
3 1oee 1010 1 
3; 10 1011 BEGIN 
: 1024 4 
3; 1025 101 ! 
3; 10 $ 1014 ' Truncate the file to zero blocks. 
3; 10 1015 ! 
3; 10 8 19ig TRUNCATE (1); 
3; 10 101 
3; 10 1918 ! 
: 1031 101 ' Deaccess the file. 
3 1038 1020 ! 
3 193? 19 1 DO_Q10W( 1O$_DEACCESS,FIB_DESC,0,0,0,0); 
3; 1035 1098 RETURN 
: 1036 1024 END; 
0000 00000 ERROR_COMPLETE: 
«WORD Save nothing : 0982 
1 Dd 00002 PUSHL @# : 1016 
FCCB CF 1 FB CALLS #1, TRUNCATE 3 
—E 7C CLRO 20s =< §P) : 1021 
7E 7C CLRQ (SP) 3 
0000° CF 9F PUSHAB FIB_DESC 3 
4 OD By PUSHL @ ; 
FFO8 = CF 6 FB 1 CALLS #6, DO_Q10W 3 


ANF ILE -Jan-1985 :5 AX-11 Bliss-3 P 3 
voen Ot B-san-1985 17 35:74 BADBLK BUGERC TSANG TAE™ 832;2 ~~? 133 

04 00018 RET : 1024 
; Routine Size: 25 bytes, Routine Base: SCODES + 0305 


4 
SCANF ILE b-san-t 5 17:22:5 AX-11 Bliss-32 V4.0-742 Page 34 
voonoot 30138? 14:38:34 BADBLK BUGERESSCANE 1,6 -832;2 9 1’) 
ROUTINE GROUP_RETURN = 
FUNCTIONAL DESCRIPTION: 


PEPSS 


OOONOU SW 


Called when a bad block error is encountered by group 
block testing. The individual blocks in a group are 
tested for ‘‘badness’’ and truncated off the current file 
and into the bad biock file when found. 


i CALLING SEQUENCE: 
i CALL GROUP_RETURN 


SRERERER 


i FORMAL PARAMETERS: 
i NONE 


CGOOCCCCCCoCooooco 
PALANAN AANA AA ANANILEPIID PUPIAPIPIPINOPODIIS 9 8 9 ot tt 
- Cc e ome we 
om 
og 
p> 
ra 


' 

! 

' 

' 

' 

' 

' 

' 

' 

' 

: 

: IMPLICIT INPUTS: 

H STARTING BLOCK: First block in group 
LAST_BLOCK: Last block in group 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 


i IMPLICIT OUTPUTS: 
i NONE 


FRALRRRAAD 

DAA SAPNA 

WO CONOUS WN 
ERELRLLEKK 
WONOULWN—O 


i ROUTINE VALUE: 
i NONE 


tt8 


i SIDE EFFECTS: 
i NONE 


Bt 


OOooooccc oo 
MAMMA I 
DONO ULSWN—O 


n the group. 


i Individually consider all blocks i 
file or free space. 


: Return each to the badblock 
VBN=.LAST_BLOCK; 
WHILE TRUE DO 

BEGIN 


Ooooocecoeo 
wNNG 
DONOULSWN—OO 


> pe 


KTEST(.VBN)) 
STS OF 


CASE CHECK _BADSTATUS (BLOC 
oe NORMAC_STS TO BAD_ST 


i=) 


SEESSEFERES 


vINn=o 


CNORMAL_STS] : TRUNC_BLOCK=.VBN; 
CERROR_STS] : RETURN FALSE; 
CBAD_STS3 : TRUNCATE _BAD(.VBN); 


Oooo 


SINNNN 
~~~ on 


TES; 


VBN=. TRUNC_BLOCK-1;: 
IF .VBN LSS .STARTING_BLOCK 


Be Se Se Se Se Se Se Se Ge Se Se Sse Ge Se Se Ge Se Ge Fe Ge Ge FF FH Ss GH SH Gs Se Hs SESH SETH SE SESE Se OH Ss Oe SH SHS Se SH SF Ss SFOs ee Ss Se SE Se Se eee 
a ee ee ec ce ce ce ce ee ee ce ee ee ee ce ee ee ce ce ce 8 ee ce ce ee ee ee ee ee ce ce cee eel ce ee ce cel el cel cel el eel el cel el el eel eel el 
me me ee ce ce ee ee ee eB ce ee ee me ee ce ee ee ee ee ee ee ee ee ee ee ed ed ed ed ed 


FSSSSSSRESERES 


—o 


4 
-Jan-1985 17:22:51 AX-11 Bliss-32 V4.0-742 P 5 
b-Jan-1945 14:58:33 BD LK bueeRcistaie 1ct-B32:2 age 423 


THEN 
RETURN TRUE; 


END ! end of while true loop 
END; 


mewn 


i a 


000C 00000 GROUP_RETURN: 
WORD 


. Save R2,R3 3 1025 
53 0000" CF 9 0006 MOVAB TRUNC_BLOCK, R3 : 
52 0c 83 DO 00 MOVL LAST_BLOCK, VBN 3 1063 
DO 00008 1$: PUSHL VBN 3 1068 
FD28 = CF 1 FB i CALLS #1, BLOCKTEST 3 
0 DD 99) PUSHL R : 
FF4O OCF 01 FB 14 CALLS #1, CHECK_BADSTATUS 3 
02 00 50 CF 00019 CASEL RO, #0, #2 3 
0Q00E 0008 0006 001D 2$: WORD iz- $ 
5$-2$° : 
63 52 D0 900 3 3$: MOVL VBN, TRUNC_BLOCK 3 1072 
0A 11 000 BRB 6$ 3 
50 04 00028 4$: CLRL RO 3 1074 
04 0002A RET 3 
52 DD 00028 5$: PUSHL VBN 3 1076 
FCB? CF 01 Fe $00 8 CALL #1, TRUNCATE_BAD 3 
52 63 91 C3 00032 6$: SUBL #1, TRUNC_BLOCK, VBN 3 1080 
08 A3 2 01 000 CMPL VBN, STARTING BLOCK 3 1081 
CF 18 OOOSA BGEQ 3 
50 01 p00 0003C MOVL #1, RO : 1083 
04 0003F RET ; 1087 


; Routine Size: 64 bytes, Routine Base: S$CODES + O3EE 


; 1101 1088 1 


B-Jan-1985 17 B5ify Hexood bdesacsstanei.¢-a32;2 Page 36 


; 1105 89 ROUTINE REMOVE_PBB (FID) : NOVALUE = 

; i 5 FUNCTIONAL DESCRIPTION: 

311 1093 1 This routine remo gs gut endin bed block entries for a given 
1 1094 1 | File ID from the CO,0IBADLOG.SY¢ file. 

: 1110 1 1 | CALLING SEQUENCE: 

; 1111 CALL REMOVE_PBB (ARG1) 

: W418 1999 1 | FORMAL PARAMETERS: 

: 1114 1 ARG]: File ID of the desired file 

: 1116 1 é 1 | IMPLICIT INPUTS: 

HA Se ae a 

: 1419 1108 1 | IMPLICIT OUTPUTS: 

: 1339 109 1 | _ 

:11 g 1108 1 | ROUTINE VALUE: 

: 115% We Yj — 

> 1125 1111 1! SIDE EFFECTS: 

3 11 $ Wig 1/ Volume suspected bad block List altered 

711 113 1: 

: 1128 1114 1 i- 

: 1129 1115 1 

: 11 1116 BEGIN 

He OU Bw 

; i" < 1119 FID : REF BLOCK C, BYTE); 

> 1135 1121 2 OWN 

711 11 é BADLOG_FIB : BLOCK £1BSC LENGTH, BYTE), | FIB or ,{0- OJBADLOG. SYS 
3 iy i} ? BADLOG_BUF : BLOCK (512, BYTE]; i 1/0 6 

: 1139 1125 2 BIND 

; 1140 1 3 BADLOG_FIB_DESC = UPLIT (FIBS$C_LENGTH,BADLOG_F ia); 

: 116 1 TERA 

: 1148 1 § M BADLOG_F1D = 9; ! define file ID for BADLOG.SYS 
: 1145 1131 2 LABEL 

: 1146 11 2 SEARCH_LOOP; 

i ie 1132 § Loca 

: 1145 1135 PBB : REF BLOCK C, BYTE), 

> 1150 11 WRITE FLAG, 

Wig} at 

: 11 § 11 rie 

Me HS 

: 6 1148 Initialize FIB for BADLOG.SYS 

: 11 1144 2 CHSFILL (0, FIBSC_LENGTH, BADLOG F 1B); 

: 1188 1145 2 BADLOG_FIB CFIBSW-FID_NUA] = BADCOG_F io; ! initialize file number 


vousooT” Be sanct98s 14:38:33 YBXaue bussaesstane 1ct-e32;2 Page 435 


: 1) 16 BADLOG_FIB CFIBSW_FID_SEQ) = BADLOG_FID; ! and sequence number 

} 116 BADLOG_FIB CFIBSV_WRITE) = 1; ! open for write 
164 11 STATUS = DO_Q10W (10$ ACCESS*+IOSM_ACCESS, 
: 1 CoG FIB_DESC, 
183 1 IF NOT .STATUS oS ea ! return on open failure 
1 154 THEN 
18 5 RETURN; 
4 VBN = 0; 
17 SEARCH_LOOP: 
174 BEGIN ! start of search loop 
175 WHILE TRUE DO 

rg BEGIN 

7 WRITE_FLAG = FALSE; ! initialize write-back flag 

£8 VEN = .VBN + 1; 

: STATUS = DO_QiOW ( 10$_READVBLK, 
9 DCOG_BuUF, 


6.°b; 


IF NOT .STATUS 
LEAVE SEARCH_LOOP; 
PBB = BADLOG_BUF ; 
INCR J 0 TO 512/PBBSC_LENGTH - 1 DO 


EGI 
of CHSEQL (FIDSC_LENGTH, .FID, FIDSC LENGTH, PBB CPBBSW_FIDIJ) 
THEN wy Bay an entry = this FID 


BEGIN 
CSF JUL (0, PBBSC_LENGTH, .PBB); ! wipe out entry 
ITE_FLAG = TRUE; ! set write-back flag 


= .PBB + PBESC_LENGTH; 


leave search loop if end of file 
or any other error 


uw 


init pointer to first entry 


SSBSVSINNANASSSLS TFL 


RIPPIN INDE Be BBB BBE TIP PD ME BB EP PEEP EEE PP PIPIPOPIPOPOPORINUPUFUNUPD 


update pointer to next entry 


ca ed ad nk et ot = ow od oo 


SSLESFANLSSSLESRANLES 


Se Se Se Se Ge Se Ge Ge Se Se Se Ge Ge Se Ge Ss Ge Ge SF Ge Se HG Se SHH SF Se OF Ss Se Se SF SH Se HH Se Oe Os SFOs Oe Se Oe SH Ss Os Os Os Se Oe Oe Oe Se Ss Be ee 
a a a et a a a a a a a a ae a a ee 8 ee me ee me ee ee ae ed ee ed ed aed ed ed ed ed ed 


a a a a ae a ea ee ee et ed ed ed od ed dw 8d 


5 END: 
IF _ .WRITE_FLAG 
THEN 
DO_Q]0W (10$_WRITEVBLK, 
COG_BUF , 
33 VBN 
38 6, 05; 
94 END; ! end of while true loop 
: 95 END; ! end of search loop 
i $y DO_Q10W ¢ ARDCDE F 18 DESC ! close file 
18 35 6-0,9°0);-- : 
15 o} RETURN; 
16 2 END; ! end of routine REMOVE _PBB 


Scant ILE fosdnct9Rs 17:23:8] YMcH oLiss=33 V4.0-742 Page, 38 


«PSECT SPLITS,NOWRT ,NOEXE ,2 


Bo000000" Goode M8 :ADDRess BapLOG_F1B : 


.PSECT SOWNS,NOEXE,2 
05A74 BADLOG_F = 


-BLKB 64 
05AB4 BADLOG_BUF : 
-BLKB 


512 
BADLOG_F IB_DESC= P.AAB 


ePSECT S$CODES,NOWRT,2 
OFFC 00000 REMOVE Pun 


' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
; 
. 
' 
. 
‘ 
* 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
4 
. 
' 
. 
4 
. 
' 
. 
' 
' 
. 
' 
° 
' 
. 
' 
. 
4 
. 
' 
. 
] 
. 
1 
. 
' 
. 
' 
. 
' 
. 
' 
. 
v 
. 
i 
. 
i 
. 
' 
. 
' 
. 
‘ 
. 


RD Save R2,R3,R4,R5,R6,R7,RB,RO,RIO,R11 : 1089 
SB 0000" CF HOVAB BADLOG peur ri : 
0040 &F 00 00 movcS #0, (SP), #0, #64, BADLOG_FIB8 + 1144 
C4 AB 00090009 F MOVL #589833, BADL OG FIB+4 > 1145 
C1 1 BISB2 BADLOG_F 18+T + 1148 
i be ot Be 
0099" F PUS GAD. 06.F18 DESC : 
7E F MOVZBL #114, =(SPY ; 
FESA CF CALLS #6, 60_a10w ; 
A MOVL «=o STATUS : 
60 A BLBC STATUS, 5$ ; 1153 
7 CLRL : 115 
9 CLRL  WRITE_FLAG > 1163 
7 INCL 3 1164 
: cLRG =(SP) ; 1165 
7E 0200 &F MOVZWL yet 2, -(SP) : Hee 
a PUSHL R11 : 
PUSHL #49 3 
FE7C CF CALLS #6, DO_Q10W ; 
A VL OR STATUS ; 
: A BLBC = STATUS, : 1170 
ws pemenee atas tite 
68 04 Bc cAPCS sf aFID, (PBB) ; 1198 
10 00 6E mOVCS (SP), #0, #16, (PBB) > 1181 
9 mOVL WRITE FLAG :11 
35 0 ADDL ait, Po : 1182 
£9 : F AOBLEQ # 211 $ 
c 9 BLBC uate. tuke. 1$ 11 
5 CLRO 0s = SP : 11 3 
PUSHL  VBN : 11 


voerOot” btn BTS ERR tt A ha Pea ee Page 43) 


7E = $200 BF -3C 00074 MOVZWL #512, -(SP) ; 1189 

0d 00075 PUSHL RI ; 

DD 00078 PUSHL #4 

FEGS = CF FB 00d CALLS #6, 00_010u ; 
4": BRB 1 3 1183 
C 00084 4$: = CLRO._— =( SP) ; 1197 

C D008 CLROQ -(SP) : 

0000 CF 9F 00088 PUSHAB BADLOG_F1B_DESC ; 

4 0d 0008 PUSHL #5 ; 

FE34 CF FB 0008 CALLS #6, DO_a10W : 
00093 5$: RET ; 1202 


; Routine Size: 148 bytes, Routine Base: SCODES + 042E 


3 ; 17 1203 1 

; 1218 1206 1 END ! end of module 

3; 1219 1205 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

; SOWNS es73¢ oh $E WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS C,NOWRT, RD ,NOEXE, NOSHR’ LCL, RE CON, NOPIC,ALIGN(2) 
; SCODES 121 WOvEE’ NOWRT, RD, EXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; cosesse= Syabo(s oooeeooe Pages Processing 

$ File Total Loaded Percent Mapped Time 

: ~$255$DUA18:CSYSLIBILIB.L32;1 18619 35 0 10006 00:01.9 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SCANFILE/OBJ=OBJ$:SCANFILE MSRCS$:SCANF ILE/UPDATE=(BUGS: SCANF ILE) 


; Size: 1218 0: ene 23748 data bytes 


eee A 36 


tion Complete 


kK 4 | 
ae Sa B=Jan-1985 17:22:51 VAX=11 Bliss-32 v4.0-742 Page 40 DCLII 


; ponery Used: 113 pages 
; Compile 
' 
! 
_] 


defi: 


defi 


| 0439 Ga VMS Va SRO LST MCRE UPD | 


